/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / Frontier / SynchronizeFTFFile.sit / SynchronizeFTFFile.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 00 c6 00 00 05 67 00 16 |........|.....g..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 07 00 04 |........|........|
|00000040| 00 00 06 54 00 00 a7 30 | 4f 54 a7 30 64 23 00 00 |...T...0|OT.0d#..|
|00000050| 00 34 80 00 00 2b 00 33 | 01 e0 02 3f 00 00 00 00 |.4...+.3|...?....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 53 |........|....on S|
|00000080| 79 6e 63 68 72 6f 6e 69 | 7a 65 46 54 46 46 69 6c |ynchroni|zeFTFFil|
|00000090| 65 20 28 70 61 74 68 29 | 0d 09 0d 09 6f 6e 20 43 |e (path)|....on C|
|000000a0| 72 65 61 74 65 46 54 46 | 54 61 62 6c 65 20 28 70 |reateFTF|Table (p|
|000000b0| 61 74 68 29 0d 09 09 69 | 66 20 6e 6f 74 20 64 65 |ath)...i|f not de|
|000000c0| 66 69 6e 65 64 20 28 70 | 65 6f 70 6c 65 2e 5b 75 |fined (p|eople.[u|
|000000d0| 73 65 72 2e 69 6e 69 74 | 69 61 6c 73 5d 2e 46 54 |ser.init|ials].FT|
|000000e0| 46 49 6e 66 6f 29 0d 09 | 09 09 66 69 6c 65 2e 67 |FInfo)..|..file.g|
|000000f0| 65 74 46 69 6c 65 44 69 | 61 6c 6f 67 20 28 22 53 |etFileDi|alog ("S|
|00000100| 65 6c 65 63 74 20 74 68 | 65 20 46 54 46 20 41 67 |elect th|e FTF Ag|
|00000110| 65 6e 64 61 20 46 69 6c | 65 20 74 6f 20 63 6f 70 |enda Fil|e to cop|
|00000120| 79 2e 22 2c 20 40 73 6f | 75 72 63 65 50 61 74 68 |y.", @so|urcePath|
|00000130| 2c 20 22 64 63 52 46 22 | 29 0d 09 09 09 66 69 6c |, "dcRF"|)....fil|
|00000140| 65 2e 67 65 74 46 6f 6c | 64 65 72 44 69 61 6c 6f |e.getFol|derDialo|
|00000150| 67 20 28 22 53 65 6c 65 | 63 74 20 77 68 65 72 65 |g ("Sele|ct where|
|00000160| 20 74 6f 20 63 6f 70 79 | 20 74 68 65 20 66 69 6c | to copy| the fil|
|00000170| 65 2e 22 2c 20 40 74 61 | 72 67 65 74 50 61 74 68 |e.", @ta|rgetPath|
|00000180| 29 0d 09 09 09 74 61 72 | 67 65 74 50 61 74 68 20 |)....tar|getPath |
|00000190| 3d 20 74 61 72 67 65 74 | 50 61 74 68 20 2b 20 22 |= target|Path + "|
|000001a0| 4d 79 20 46 54 46 20 41 | 67 65 6e 64 61 22 0d 09 |My FTF A|genda"..|
|000001b0| 09 09 6e 65 77 20 28 74 | 61 62 6c 65 54 79 70 65 |..new (t|ableType|
|000001c0| 2c 20 40 70 65 6f 70 6c | 65 2e 5b 75 73 65 72 2e |, @peopl|e.[user.|
|000001d0| 69 6e 69 74 69 61 6c 73 | 5d 2e 46 54 46 49 6e 66 |initials|].FTFInf|
|000001e0| 6f 29 0d 09 09 09 74 61 | 62 6c 65 2e 61 73 73 69 |o)....ta|ble.assi|
|000001f0| 67 6e 20 28 40 70 65 6f | 70 6c 65 2e 5b 75 73 65 |gn (@peo|ple.[use|
|00000200| 72 2e 69 6e 69 74 69 61 | 6c 73 5d 2e 46 54 46 49 |r.initia|ls].FTFI|
|00000210| 6e 66 6f 2e 73 6f 75 72 | 63 65 50 61 74 68 2c 20 |nfo.sour|cePath, |
|00000220| 73 6f 75 72 63 65 50 61 | 74 68 29 0d 09 09 09 74 |sourcePa|th)....t|
|00000230| 61 62 6c 65 2e 61 73 73 | 69 67 6e 20 28 40 70 65 |able.ass|ign (@pe|
|00000240| 6f 70 6c 65 2e 5b 75 73 | 65 72 2e 69 6e 69 74 69 |ople.[us|er.initi|
|00000250| 61 6c 73 5d 2e 46 54 46 | 49 6e 66 6f 2e 74 61 72 |als].FTF|Info.tar|
|00000260| 67 65 74 50 61 74 68 2c | 20 74 61 72 67 65 74 50 |getPath,| targetP|
|00000270| 61 74 68 29 0d 09 0d 09 | 6f 6e 20 43 6f 6d 70 61 |ath)....|on Compa|
|00000280| 72 65 46 54 46 46 69 6c | 65 20 28 70 61 74 68 29 |reFTFFil|e (path)|
|00000290| 0d 09 09 6c 6f 63 61 6c | 20 28 73 6f 75 72 63 65 |...local| (source|
|000002a0| 46 69 6c 65 20 3d 20 70 | 65 6f 70 6c 65 2e 5b 75 |File = p|eople.[u|
|000002b0| 73 65 72 2e 69 6e 69 74 | 69 61 6c 73 5d 2e 46 54 |ser.init|ials].FT|
|000002c0| 46 49 6e 66 6f 2e 73 6f | 75 72 63 65 50 61 74 68 |FInfo.so|urcePath|
|000002d0| 29 0d 09 09 6c 6f 63 61 | 6c 20 28 73 6f 75 72 63 |)...loca|l (sourc|
|000002e0| 65 46 69 6c 65 44 61 74 | 65 20 3d 20 66 69 6c 65 |eFileDat|e = file|
|000002f0| 2e 6d 6f 64 69 66 69 65 | 64 28 73 6f 75 72 63 65 |.modifie|d(source|
|00000300| 46 69 6c 65 29 29 0d 09 | 09 6c 6f 63 61 6c 20 28 |File))..|.local (|
|00000310| 74 61 72 67 65 74 46 69 | 6c 65 20 3d 20 70 65 6f |targetFi|le = peo|
|00000320| 70 6c 65 2e 5b 75 73 65 | 72 2e 69 6e 69 74 69 61 |ple.[use|r.initia|
|00000330| 6c 73 5d 2e 46 54 46 49 | 6e 66 6f 2e 74 61 72 67 |ls].FTFI|nfo.targ|
|00000340| 65 74 50 61 74 68 29 0d | 09 09 69 66 20 66 69 6c |etPath).|..if fil|
|00000350| 65 2e 65 78 69 73 74 73 | 20 28 74 61 72 67 65 74 |e.exists| (target|
|00000360| 46 69 6c 65 29 0d 09 09 | 09 6c 6f 63 61 6c 20 28 |File)...|.local (|
|00000370| 74 61 72 67 65 74 46 69 | 6c 65 44 61 74 65 20 3d |targetFi|leDate =|
|00000380| 20 66 69 6c 65 2e 6d 6f | 64 69 66 69 65 64 28 74 | file.mo|dified(t|
|00000390| 61 72 67 65 74 46 69 6c | 65 29 29 0d 09 09 09 69 |argetFil|e))....i|
|000003a0| 66 20 28 73 6f 75 72 63 | 65 46 69 6c 65 44 61 74 |f (sourc|eFileDat|
|000003b0| 65 20 3e 20 74 61 72 67 | 65 74 46 69 6c 65 44 61 |e > targ|etFileDa|
|000003c0| 74 65 29 0d 09 09 09 09 | 66 69 6c 65 2e 63 6f 70 |te).....|file.cop|
|000003d0| 79 20 28 73 6f 75 72 63 | 65 46 69 6c 65 2c 20 74 |y (sourc|eFile, t|
|000003e0| 61 72 67 65 74 46 69 6c | 65 29 0d 09 09 09 09 6d |argetFil|e).....m|
|000003f0| 73 67 20 28 22 46 54 46 | 20 41 67 65 6e 64 61 20 |sg ("FTF| Agenda |
|00000400| 73 6f 75 72 63 65 20 66 | 69 6c 65 20 65 78 70 6f |source f|ile expo|
|00000410| 72 74 65 64 2e 22 29 0d | 09 09 09 69 66 20 28 74 |rted.").|...if (t|
|00000420| 61 72 67 65 74 46 69 6c | 65 44 61 74 65 20 3e 20 |argetFil|eDate > |
|00000430| 73 6f 75 72 63 65 46 69 | 6c 65 44 61 74 65 29 0d |sourceFi|leDate).|
|00000440| 09 09 09 09 66 69 6c 65 | 2e 63 6f 70 79 20 28 74 |....file|.copy (t|
|00000450| 61 72 67 65 74 46 69 6c | 65 2c 20 73 6f 75 72 63 |argetFil|e, sourc|
|00000460| 65 46 69 6c 65 29 0d 09 | 09 09 09 6d 73 67 20 28 |eFile)..|...msg (|
|00000470| 22 46 54 46 20 41 67 65 | 6e 64 61 20 74 61 72 67 |"FTF Age|nda targ|
|00000480| 65 74 20 66 69 6c 65 20 | 69 6d 70 6f 72 74 65 64 |et file |imported|
|00000490| 2e 22 29 0d 09 09 09 69 | 66 20 28 74 61 72 67 65 |.")....i|f (targe|
|000004a0| 74 46 69 6c 65 44 61 74 | 65 20 3d 3d 20 73 6f 75 |tFileDat|e == sou|
|000004b0| 72 63 65 46 69 6c 65 44 | 61 74 65 29 0d 09 09 09 |rceFileD|ate)....|
|000004c0| 09 6d 73 67 20 28 22 46 | 69 6c 65 20 64 61 74 65 |.msg ("F|ile date|
|000004d0| 73 20 6d 61 74 63 68 2e | 20 20 4e 6f 20 73 79 6e |s match.|  No syn|
|000004e0| 63 68 72 6f 6e 69 7a 61 | 74 69 6f 6e 20 65 78 65 |chroniza|tion exe|
|000004f0| 63 75 74 65 64 2e 22 29 | 0d 09 09 65 6c 73 65 0d |cuted.")|...else.|
|00000500| 09 09 09 6c 6f 63 61 6c | 20 28 74 61 72 67 65 74 |...local| (target|
|00000510| 46 6f 6c 64 65 72 50 61 | 74 68 20 3d 20 66 69 6c |FolderPa|th = fil|
|00000520| 65 2e 66 6f 6c 64 65 72 | 46 72 6f 6d 50 61 74 68 |e.folder|FromPath|
|00000530| 20 28 70 65 6f 70 6c 65 | 2e 5b 75 73 65 72 2e 69 | (people|.[user.i|
|00000540| 6e 69 74 69 61 6c 73 5d | 2e 46 54 46 49 6e 66 6f |nitials]|.FTFInfo|
|00000550| 2e 74 61 72 67 65 74 50 | 61 74 68 29 29 0d 09 09 |.targetP|ath))...|
|00000560| 09 66 69 6c 65 2e 63 6f | 70 79 20 28 73 6f 75 72 |.file.co|py (sour|
|00000570| 63 65 46 69 6c 65 2c 20 | 74 61 72 67 65 74 46 6f |ceFile, |targetFo|
|00000580| 6c 64 65 72 50 61 74 68 | 29 0d 09 09 09 6d 73 67 |lderPath|)....msg|
|00000590| 20 28 22 46 54 46 20 41 | 67 65 6e 64 61 20 66 69 | ("FTF A|genda fi|
|000005a0| 6c 65 20 65 78 70 6f 72 | 74 65 64 2e 22 29 0d 09 |le expor|ted.")..|
|000005b0| 09 09 0d 09 43 72 65 61 | 74 65 46 54 46 54 61 62 |....Crea|teFTFTab|
|000005c0| 6c 65 20 28 70 61 74 68 | 29 0d 09 43 6f 6d 70 61 |le (path|)..Compa|
|000005d0| 72 65 46 54 46 46 69 6c | 65 20 28 70 61 74 68 29 |reFTFFil|e (path)|
|000005e0| 0d 09 0d 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000005f0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000600| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000610| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000620| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000630| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000640| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000650| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000660| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000670| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000680| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000690| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000006a0| 00 00 00 80 00 00 00 00 | 00                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+